home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 1.iso / util / kiswap.zip / DDESAMPL.TXT < prev    next >
Text File  |  1994-04-18  |  590b  |  21 lines
  1. Sub MAIN
  2. Chan = DDEInitiate("KeySwap", "System")
  3. ExecuteString$ = "Activate(0)"
  4. DDEExecute Chan, ExecuteString$
  5. End Sub
  6.  
  7. This macro will turn WinKeySwap Off - "Activate(0)"
  8. To turn WinKeySwap On, The ExecuteString$ should equal "Activate(1)"
  9.  
  10.  
  11.  
  12. Sub Main
  13. Chan = DDEInitiate("KeySwap", "System")
  14. ExecuteString$ = "LoadTable(test.NRB )"
  15. DDEExecute Chan, ExecuteString$
  16. End Sub
  17.  
  18. This macro will load mapping table "test.nrb"
  19.  
  20. Note the above macros will not check if WinKeySwap is active or not. The newmacro.doc file lists macros to test if applications are running or not.
  21.